Testing various plot functions

source("global.R")

package ‘yaml’ was built under R version 3.4.4package ‘tidyverse’ was built under R version 3.4.2── Attaching packages ────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 2.2.1.9000     ✔ purrr   0.2.4     
✔ tibble  1.4.2          ✔ dplyr   0.7.4     
✔ tidyr   0.8.0          ✔ stringr 1.3.0     
✔ readr   1.1.1          ✔ forcats 0.2.0     
package ‘tibble’ was built under R version 3.4.3package ‘tidyr’ was built under R version 3.4.3package ‘purrr’ was built under R version 3.4.2package ‘dplyr’ was built under R version 3.4.2package ‘stringr’ was built under R version 3.4.3── Conflicts ───────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
✖ dplyr::vars()   masks ggplot2::vars()

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

package ‘heatmaply’ was built under R version 3.4.2Loading required package: viridis
Loading required package: viridisLite
package ‘viridisLite’ was built under R version 3.4.3
Attaching package: ‘viridis’

The following object is masked from ‘package:viridisLite’:

    viridis.map


======================
Welcome to heatmaply version 0.13.0

Type citation('heatmaply') for how to cite the package.
Type ?heatmaply for the main documentation.

The github page is: https://github.com/talgalili/heatmaply/
Please submit your suggestions and bug-reports at: https://github.com/talgalili/heatmaply/issues
Or contact: <tal.galili@gmail.com>
======================

package ‘survminer’ was built under R version 3.4.2Loading required package: ggpubr
package ‘ggpubr’ was built under R version 3.4.2Loading required package: magrittr

Attaching package: ‘magrittr’

The following object is masked from ‘package:purrr’:

    set_names

The following object is masked from ‘package:tidyr’:

    extract


Attaching package: ‘shinydashboard’

The following object is masked from ‘package:graphics’:

    box

Loading required package: productplots

Attaching package: ‘ggmosaic’

The following objects are masked from ‘package:productplots’:

    ddecker, hspine, mosaic, prodcalc, spine, vspine

Error in fluidPage(br(), titleBox("About"), fluidRow(column(width = 12,  : 
  could not find function "fluidPage"

display_x  <- panimmune_data$sample_selection_choices[1]
display_y  <- panimmune_data$cell_content_choices[1]
internal_x <- get_variable_internal_name(display_x)
internal_y <- get_variable_internal_name(display_y)
plot_df <- panimmune_data$df %>% 
    select_(.dots = c(internal_x, internal_y)) %>% 
    .[complete.cases(.),]
plot <- create_violinplot(
    plot_df,
    internal_x,
    internal_y,
    internal_x,
    xlab = display_x,
    ylab = display_y,
    fill_colors = decide_plot_colors(panimmune_data, internal_x)
)

the condition has length > 1 and only the first element will be used

plot

ggplotly(plot) %>% 
    layout(hovermode = "closest")

packageVersion('plotly')

[1] ‘4.7.1.9000’